anim.m2 <- lm(log(brain)~log(body),data=Animals, 
              subset=!(log(Animals$body)>8&log(Animals$brain)<6))
anim.m0 <- lm(log(brain)~1, data=Animals, 
              subset=!(log(Animals$body)>8&log(Animals$brain)<6))
anova(anim.m0,anim.m2) #1*

anova(anim.m2)#1.2*

#1- Os comandos "anova" utilizados acima apresentam as informaes do nosso modelo em contraste com as informaes do modelo nulo. 
#O primeiro comando ns utilizamos o objeto que fora criado contendo o nosso modelo nulo. O segundo comando anova utilizado, apesar de no ter o objeto do nosso modelo nulo, ele faz a comparao sozinho sem que precisemos criar o modelo nulo, o modelo nulo  gerado por ele prprio.

summary(anim.m0)
mean(log(Animals$brain[!(log(Animals$body)>8&log(Animals$brain)<6)]))
sd(log(Animals$brain[!(log(Animals$body)>8&log(Animals$brain)<6)]))

#2- Ao utilizar a funo summary,  me dado vrias informaes sobre o modelo inclusive a mdia e os resduos que foram obtidos a partir dos outros dois comandos utilizados aps o summary. No entando, o summary alm de me dar os valores de mdia e dos resduos, ele me d mais informaes sobre o modelo, sendo portanto uma funo mais completa.

